Option Explicit
Sub C_Sample026()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    With myRng
        .EntireRow.AutoFit 					'C
        .EntireColumn.AutoFit					'e
    End With
    Set myRng = Nothing						'
End Sub
